home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
comm
/
bbs
/
FileLister145.lha
/
Rexx
/
Allfiles.Trans
next >
Wrap
Text File
|
1994-09-13
|
362b
|
20 lines
/* Allfiles.trans */
options results
bbsidentify term
bbsline=strip(word(result,4))
befehl="host=show('P','FILELISTER."||bbsline||"')"
interpret befehl
if ~host then do
address command 'run BBS:bin/FileLister '||bbsline
address command 'waitforport FILELISTER'||bbsline
end
befehl="address 'FILELISTER."||bbsline||"' 'LISTFILES'"
interpret befehl
exit